Amiga Format CD 49/Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso/-serious-/misc/football/exec/updateteamname.rexx

OS/2 REXX Batch file | 1999-11-29 | 7KB | 328 lines

/* ***********************************************************************

  UPDATE TEAM NAME PROGRAM FOR FOOTBALL REXX SUITE
  ------------------------------------------------
                   Copyright  Mark Naughton 1999


Version    Date     History
--------------------------------------------------------------------------

 1.0       050999   Created.

**************************************************************************

Procedure
---------

1. Check files exist.
2. Read datafiles in one at a time into an array.
3. Search array for occurrences of 'team_srch' and when found overwrite
   the old name with the new one.
4. If marker set, write data back to file.
5. Exit.

************************************************************************** */
PARSE ARG league_stuff

version      = 1
input_file   = '.df'
input2_file  = '.sf'
input3_file  = '.sflearn'
input4_file  = '.stats'
sdlines.     = '???'
separator    = '*'
file1        = 0
file2        = 0
file3        = 0
file4        = 0

parse var league_stuff league_file "*" team_srch "*" team_repl
league_file = "Data/"strip(league_file)

if open(datafile,"Data/Football.locale",'r') then do
   line = readln(datafile)
   locdir = strip(line)
   close(datafile)
end
else do
   say
   say "ERROR :    (UpdateTeamName)"
   say
   say "Cannot read 'Data/Football.locale' for the locale settings."
   exit
end

locdir = locdir"Exec/UpdateTeamName.data"

if open(datafile,"ENV:FootballRXPath",'r') then do
   line = readln(datafile)
   rxdir = strip(line)
   close(datafile)
end
else
   rxdir = "SYS:Rexxc/"

if exists(locdir) > 0 then do
  address command rxdir'rx 'locdir
  VarCount = getclip('VarCount')
  do i = 1 to VarCount
    interpret getclip('var.'i)
  end
end
else do
   say
   say "ERROR :    (UpdateTeamName)"
   say
   say "Cannot find '"locdir"' to read locale settings."
   exit
end

team_srch = strip(team_srch)
team_repl = strip(team_repl)

if exists(league_file || input_file) = 0  then do
   say
   say utn_error
   say
   say utn_one"'"league_file||input_file"'."
   exit
end
if exists(league_file || input2_file) = 0 then do
   say
   say utn_error
   say
   say utn_one"'"league_file||input2_file"'."
   exit
end
                /* this will cause a non-started league to fail when updating */
/*
if exists(league_file || input3_file) = 0 then do
   say
   say utn_error
   say
   say utn_one"'"league_file||input3_file"'."
   exit
end
*/
if exists(league_file || input4_file) = 0 then do
   say
   say utn_error
   say
   say utn_one"'"league_file||input4_file"'."
   exit
end

/* Read, Change and Write Back .df file */

sdcount = 0
if open(datafile,league_file || input_file,'r') then do
   do while ~eof(datafile)
      line = readln(datafile)
      line = strip(line)
      sdcount         = sdcount + 1
      sdlines.sdcount = line
   end
   close(datafile)
end
else do
   say
   say utn_error
   say
   say utn_two"'"league_file||input_file"'"utn_three
   exit
end

mkt = 0
do i=1 to sdcount
   if pos(separator,sdlines.i) = 0 then do
      if team_srch == strip(sdlines.i) then do
         sdlines.i = team_repl
         mkt = 1
         leave
      end
   end
end

if mkt = 1 then do
   if open(datafile3,league_file || input_file,'w') then do
      do j=1 to sdcount
         if sdlines.j~="" then writeln(datafile3,sdlines.j)
      end
      close(datafile3)
   end
   else do
      say
      say utn_error
      say
      say utn_two"'"league_file || input_file"'"utn_four
      exit
   end
   file1 = 1
end

/* Read, Change and Write Back .sf file */

sdcount = 0
if open(datafile,league_file||input2_file,'r') then do
   do while ~eof(datafile)
      line = readln(datafile)
      line = strip(line)
      sdcount         = sdcount + 1
      sdlines.sdcount = line
   end
   close(datafile)
end
else do
   say
   say utn_error
   say
   say utn_two"'"league_file||input2_file"'"utn_three
   exit
end

mkt = 0
do i=1 to sdcount
   if pos(separator,sdlines.i) = 0 then do
      if pos(team_srch,sdlines.i) > 0 then do
         t1 = strip(substr(sdlines.i,1,30))
         t2 = strip(substr(sdlines.i,41,30))
         if t1 == team_srch then sdlines.i = overlay(left(team_repl,30," "),sdlines.i,1,30)
         if t2 == team_srch then sdlines.i = overlay(left(team_repl,30," "),sdlines.i,41,30)
         mkt = 1
      end
   end
end

if mkt = 1 then do
   if open(datafile3,league_file || input2_file,'w') then do
      do j=1 to sdcount
         if sdlines.j~="" then writeln(datafile3,sdlines.j)
      end
      close(datafile3)
   end
   else do
      say
      say utn_error
      say
      say utn_two"'"league_file || input2_file"'"utn_four
      exit
   end
   file2 = 1
end

/* Read, Change and Write Back .sflearn file */

sdcount = 0
if open(datafile,league_file||input3_file,'r') then do
   do while ~eof(datafile)
      line = readln(datafile)
      line = strip(line)
      sdcount         = sdcount + 1
      sdlines.sdcount = line
   end
   close(datafile)
end
else do
   say
   say utn_error
   say
   say utn_two"'"league_file||input3_file"'"utn_three
   exit
end

mkt = 0
do i=1 to sdcount
   if pos(separator,sdlines.i) = 0 then do
      if pos(team_srch,sdlines.i) > 0 then do
         t1 = strip(substr(sdlines.i,1,30))
         t2 = strip(substr(sdlines.i,41,30))
         if t1 == team_srch then sdlines.i = overlay(left(team_repl,30," "),sdlines.i,1,30)
         if t2 == team_srch then sdlines.i = overlay(left(team_repl,30," "),sdlines.i,41,30)
         mkt = 1
      end
   end
end

if mkt = 1 then do
   if open(datafile3,league_file || input3_file,'w') then do
      do j=1 to sdcount
         if sdlines.j~="" then writeln(datafile3,sdlines.j)
      end
      close(datafile3)
   end
   else do
      say
      say utn_error
      say
      say utn_two"'"league_file || input3_file"'"utn_four
      exit
   end
   file3 = 1
end

/* Read, Change and Write Back .stats file */

sdcount = 0
if open(datafile,league_file||input4_file,'r') then do
   do while ~eof(datafile)
      line = readln(datafile)
      line = strip(line)
      sdcount         = sdcount + 1
      sdlines.sdcount = line
   end
   close(datafile)
end
else do
   say
   say utn_error
   say
   say utn_two"'"league_file||input4_file"'"utn_five
   exit
end

mkt = 0
do i=1 to sdcount
   if pos("*TEAM=",sdlines.i) > 0 then do
      parse var sdlines.i "*TEAM=" lteam
      lteam = strip(lteam)
      if team_srch == lteam then do
         sdlines.i = "*TEAM="team_repl
         mkt = 1
         leave
      end
   end
end

if mkt = 1 then do
   if open(datafile3,league_file || input4_file,'w') then do
      do j=1 to sdcount
         if sdlines.j~="" then writeln(datafile3,sdlines.j)
      end
      close(datafile3)
   end
   else do
      say
      say utn_error
      say
      say utn_two"'"league_file || input4_file"'"utn_four
      exit
   end
   file4 = 1
end

say
say center(utn_t1,78)
say "-----------------------------------------------------------------------------------------"
say
say utn_t2" '"team_srch"' "utn_t3" '"team_repl"'."
say
say utn_t4
say
if file1 = 1 then say "     '"league_file||input_file"'"
if file2 = 1 then say "     '"league_file||input2_file"'"
if file3 = 1 then say "     '"league_file||input3_file"'"
if file4 = 1 then say "     '"league_file||input4_file"'"
say

exit